(defclass coordinated-container ()
  (entities-by-self
   entities-by-coordinates))


(defgeneric place (x y)